home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / maestro / source / timeline / cnnctprt.g < prev    next >
Encoding:
Text File  |  1993-06-15  |  4.5 KB  |  156 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :popup-window
  5.     :name                   PortManagerPopup
  6.     :owner                  nil
  7.     :width                  417
  8.     :height                 120
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "Port Manager for TimeLine Editor"
  12.     :label-type             :string
  13.     :initial-state          :invisible
  14.     :show-footer            t
  15.     :resizable              nil
  16.     :pinned                 nil
  17.     :done-handler           nil
  18.     :event-handler          nil
  19.     :user-data              ()
  20.     :actions                ()
  21. )
  22. (
  23.     :type                   :control-area
  24.     :name                   controls1
  25.     :owner                  PortManagerPopup
  26.     :help                   ""
  27.     :x                      0
  28.     :y                      0
  29.     :width                  417
  30.     :height                 120
  31.     :background-color       "Light Gray"
  32.     :foreground-color       ""
  33.     :initial-state          :visible
  34.     :show-border            nil
  35.     :menu                   nil
  36.     :event-handler          nil
  37.     :user-data              ()
  38.     :actions                ()
  39. )
  40. (
  41.     :type                   :message
  42.     :name                   CurrentPortManagerMsg
  43.     :owner                  controls1
  44.     :help                   ""
  45.     :x                      20
  46.     :y                      20
  47.     :width                  201
  48.     :height                 13
  49.     :foreground-color       "Black"
  50.     :label                  "Current Port Manager : (none)"
  51.     :label-type             :string
  52.     :label-bold             t
  53.     :initial-state          :active
  54.     :event-handler          nil
  55.     :user-data              ()
  56.     :actions                ()
  57. )
  58. (
  59.     :type                   :text-field
  60.     :name                   NewPortManagerText
  61.     :owner                  controls1
  62.     :help                   ""
  63.     :x                      20
  64.     :y                      48
  65.     :width                  382
  66.     :height                 15
  67.     :value-x                162
  68.     :value-y                48
  69.     :value-length           30
  70.     :stored-length          256
  71.     :rows                   3
  72.     :foreground-color       "Black"
  73.     :text-type              :alphanumeric
  74.     :label                  "New Port Manager : "
  75.     :label-type             :string
  76.     :layout-type            :horizontal
  77.     :value-underlined       t
  78.     :initial-value          ""
  79.     :initial-state          :active
  80.     :read-only              nil
  81.     :notify-handler         NewPortManager
  82.     :event-handler          nil
  83.     :user-data              ()
  84.     :actions                (
  85.         (
  86.         :from                   (PortManagerPopup NewPortManagerText)
  87.         :when                   (Notify )
  88.         :to                     (PortManagerPopup NewPortManagerText)
  89.         :function_type          CallFunction
  90.         :arg_type               ()
  91.         :action                 (NewPortManager)
  92.         )
  93.     )
  94. )
  95. (
  96.     :type                   :button
  97.     :name                   ConnectPortManagerButton
  98.     :owner                  controls1
  99.     :help                   ""
  100.     :x                      124
  101.     :y                      84
  102.     :width                  68
  103.     :height                 19
  104.     :constant-width         nil
  105.     :button-type            :normal
  106.     :foreground-color       "Black"
  107.     :label                  "Connect"
  108.     :label-type             :string
  109.     :initial-state          :active
  110.     :menu                   nil
  111.     :notify-handler         ConnectPortManager
  112.     :event-handler          nil
  113.     :user-data              ()
  114.     :actions                (
  115.         (
  116.         :from                   (PortManagerPopup ConnectPortManagerButton)
  117.         :when                   (Notify )
  118.         :to                     (PortManagerPopup ConnectPortManagerButton)
  119.         :function_type          CallFunction
  120.         :arg_type               ()
  121.         :action                 (ConnectPortManager)
  122.         )
  123.     )
  124. )
  125. (
  126.     :type                   :button
  127.     :name                   ClosePortManagerPopupButton
  128.     :owner                  controls1
  129.     :help                   ""
  130.     :x                      236
  131.     :y                      84
  132.     :width                  59
  133.     :height                 19
  134.     :constant-width         nil
  135.     :button-type            :normal
  136.     :foreground-color       "Black"
  137.     :label                  "Cancel"
  138.     :label-type             :string
  139.     :initial-state          :active
  140.     :menu                   nil
  141.     :notify-handler         ClosePortManagerPopup
  142.     :event-handler          nil
  143.     :user-data              ()
  144.     :actions                (
  145.         (
  146.         :from                   (PortManagerPopup ClosePortManagerPopupButton)
  147.         :when                   (Notify )
  148.         :to                     (PortManagerPopup ClosePortManagerPopupButton)
  149.         :function_type          CallFunction
  150.         :arg_type               ()
  151.         :action                 (ClosePortManagerPopup)
  152.         )
  153.     )
  154. )
  155. )
  156.